home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh21b.d64 / listing 32 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  55 lines
  1. 10 REM ************************************************
  2. 20 REM *                                              *
  3. 30 REM *   PROGRAMM ZUM UMWANDELN VON ZAHLEN IN DIE   *
  4. 40 REM *   C 64-FORMATE   MFLPT  (AB $6000)           *
  5. 50 REM *                   FLPT  (AB $6010)           *
  6. 60 REM *                                              *
  7. 70 REM *       HEIMO PONNATH  HAMBURG  1986           *
  8. 80 REM *                                              *
  9. 90 REM ************************************************
  10. 100 REM
  11. 110 PRINTCHR$(147)"IST DER SMON AB $C000 SCHON EINGELADEN  (J/N)";:INPUTA$
  12. 120 IF A$<>"J" THEN PRINT"WUENSCHE GUTEN ABSTURZ...ODER SMON LADEN!":END
  13. 130 FOR I=0 TO 17:REM EINLESEN DES MASCHINENPROGRAMMES
  14. 140 READ D:POKE 828+I,D
  15. 150 NEXT I
  16. 160 REM -------- DAS MASCHINENPROGRAMM ------------
  17. 170 DATA 162,000    :REM LDX #$00     ;LSB ZIELADRESSE
  18. 180 DATA 160,096    :REM LDY #$60     ;MSB    -"-
  19. 190 [131] 032,212,187:[143] JSR $BBD4    ;FAC -> (X/Y)
  20. 200 [131] 162,006    :[143] LDX #$06     ;ZAEHLER EINRICHTEN
  21. 210 [131] 181,096    :[143] LDA $60,X    ;FAC AUSLESEN
  22. 220 [131] 157,015,096:[143] STA $600F,X  ;UND UEBERTRAGEN
  23. 230 [131] 202        :[143] DEX          ;ZAEHLER -1
  24. 240 [131] 208,248    :[143] BNE $033D    ;WEITER BIS FAC UEBERTRAGEN IST
  25. 250 [131] 096        :[143] RTS          ;ZURUECK INS BASICPROGRAMM
  26. 260 [143]
  27. 270 [143] -------- USR-VEKTOR AUF $828 RICHTEN -----
  28. 280 [143]
  29. 290 [151] 785,60 :[143] LSB DES USR-VEKTORS
  30. 300 [151] 786,3  :[143] MSB DESSELBEN
  31. 310 [143]
  32. 320 [143] -------- EINGABEN UND USR-AUFRUF ----------
  33. 330 [143]
  34. 340 [153] [199](147):[133]"ZAHL EINGEBEN";A
  35. 350 B[178][183](A):[143] B IST NUR EIN DUMMY
  36. 360 [143]
  37. 370 [143] ----- PROGR.DIREKTMODUS : MONITORAUFRUF -----
  38. 380 [153][199](147)[199](17)
  39. 390 [153]"SYS49152"[199](17)[199](17)[199](17)[199](17)
  40. 400 [153]" M 6000 6001"[199](17):[143] HIER LIEGT DIE ZAHL IM MFLPT-FORMAT
  41. 410 [153]" M 6010 6011"[199](17):[143] UND HIER IM FLPT-FORMAT
  42. 420 [153]" X"[199](17)
  43. 430 [153]"RUN490"
  44. 440 [153][199](19);
  45. 450 [151]631,13
  46. 460 [151]198,1:[128]
  47. 470 [143] ---------------------------------------------
  48. 480 [143]
  49. 490 [153]:[153]"AB $6000 MFLPT-FORMAT"
  50. 500 [153]"AB $6010 FLPT-FORMAT"
  51. 510 [153]:[133]"WEITERE ZAHLEN (J/N)";A$
  52. 520 [139] A$[178]"J" [167] 340
  53. 530 [151] 785,72:[151] 786,178:[143] USR-VEKTOR AUF NORMALWERT
  54. 540 [128]
  55.